home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / MODES / MIM-SYNT.ELC < prev    next >
Text File  |  1993-03-28  |  1KB  |  20 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:32:10 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/mim-synt.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'mim-mode)
  14. (fset 'slow-syntax-check-mim #[nil "└┴!êd┬ëëëëèebê ¼Σ╔╩╦#½▄hë╠U½ç┬═╬Åê¬f╧U½ç┬╨╤Åê¬Yz╥U½⌐½Å╙╘╒ H╓\"╫\"U¼à`ë¬<@ë¡â SfA¬) ½å B`¬) ¼ê ¼à└╪!¬└ ½┤ bê╠ܽà┘┌!¬» ¼ë┘█▄!\"¬ú┘▌è`S Sbê`┬ê` ^{)▄!#¬ë bê┘▐▄!\".ç" [message "checking syntax..." nil last-point whoops last-bracket current point-stack stop re-search-forward "\\s(\\|\\s)\\|\"\\|[\\]" t 34 (byte-code "└┴!ê┬┬ç" [re-search-forward "[^\\]\"" nil current] 2) ((error (byte-code "`┴ç" [whoops nil] 1))) 92 (forward-char 1) ((error)) 41 logand lsh syntax-table -8 127 "Syntax correct" error "Unterminated string" "Extraneous %s" char-to-string "Mismatched %s with %s" "Unmatched %s"] 7 "\
  15. Check Mim syntax slowly.
  16. Points out the context of the error, if the syntax is incorrect." nil])
  17. (fset 'fast-syntax-check-mim #[nil "èebê└m¼î┬`d├#ë@├ܼq    @├ܽà─┼!¬â╞╟!*ç" [nil state parse-partial-sexp 0 message "Syntax correct" error "Syntax incorrect"] 4 "\
  18. Checks Mim syntax quickly.
  19. Answers correct or incorrect, cannot point out the error context." nil])
  20.